home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / T U R B O Language / Turbo Pascal V7.0 / DOCDEMO.ZIP / TUTOR02B.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-30  |  1.6 KB  |  60 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program Tutor02b;
  9.  
  10. uses App, Objects, Menus, Drivers, Views, TutConst;
  11.  
  12. type
  13.   TTutorApp = object(TApplication)
  14.     procedure InitMenuBar; virtual;
  15.     procedure InitStatusLine; virtual;
  16.   end;
  17.  
  18. procedure TTutorApp.InitMenuBar;
  19. var
  20.   R: TRect;
  21. begin
  22.   GetExtent(R);
  23.   R.B.Y := R.A.Y + 1;
  24.   MenuBar := New(PMenuBar, Init(R, NewMenu(
  25.       NewItem('~N~ew', '', kbNoKey, cmNew, hcNew,
  26.       NewItem('~O~pen...', 'F3', kbF3, cmOpen, hcOpen,
  27.       NewItem('~S~ave', 'F2', kbF2, cmSave, hcSave,
  28.       NewItem('Save ~a~s...', '', kbNoKey, cmSaveAs, hcSaveAs,
  29.       NewLine(
  30.       NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit,
  31.       nil)))))))));
  32. end;
  33.  
  34. procedure TTutorApp.InitStatusLine;
  35. var
  36.   R: TRect;
  37. begin
  38.   GetExtent(R);
  39.   R.A.Y := R.B.Y - 1;
  40.   New(StatusLine, Init(R,
  41.     NewStatusDef(0, $EFFF,
  42.       NewStatusKey('~F3~ Open', kbF3, cmOpen,
  43.       NewStatusKey('~F4~ New', kbF4, cmNew,
  44.       NewStatusKey('~Alt+F3~ Close', kbAltF3, cmClose,
  45.       StdStatusKeys(nil)))),
  46.     NewStatusDef($F000, $FFFF,
  47.       NewStatusKey('~F6~ Next', kbF6, cmOrderNext,
  48.       NewStatusKey('~Shift+F6~ Prev', kbShiftF6, cmOrderPrev,
  49.       StdStatusKeys(nil))), nil))));
  50. end;
  51.  
  52. var
  53.   TutorApp: TTutorApp;
  54.  
  55. begin
  56.   TutorApp.Init;
  57.   TutorApp.Run;
  58.   TutorApp.Done;
  59. end.
  60.